home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / compile_to_jvm3.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-12-22  |  4.8 KB  |  376 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_jvm.h"
  9.  
  10.  
  11. T353 r353realloc(T353 C,T2 a1,T2 a2){
  12. T353 R=NULL;
  13. R=calloc(a2,sizeof(T0*));
  14. r353copy_from(R,C,(a1)-(1));
  15. return R;
  16. }
  17.  
  18.  
  19. void r353set_all_with(T353 C,T0* a1,T2 a2){
  20. T2 _i=0;
  21. _i=a2;
  22. while (!((_i)<(0))) {
  23. (C)[_i]=(a1);
  24. _i=(_i)-(1);
  25. }
  26. }
  27.  
  28.  
  29. T2 r353fast_index_of(T353 C,T0* a1,T2 a2){
  30. T2 R=0;
  31. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  32. R=(R)+(1);
  33. }
  34. return R;
  35. }
  36.  
  37.  
  38. void r353copy_from(T353 C,T353 a1,T2 a2){
  39. T2 _i=0;
  40. _i=a2;
  41. while (!((_i)<(0))) {
  42. (C)[_i]=((a1)[_i]);
  43. _i=(_i)-(1);
  44. }
  45. }
  46.  
  47.  
  48. T351 r351realloc(T351 C,T2 a1,T2 a2){
  49. T351 R=NULL;
  50. R=calloc(a2,sizeof(T0*));
  51. r351copy_from(R,C,(a1)-(1));
  52. return R;
  53. }
  54.  
  55.  
  56. void r351set_all_with(T351 C,T0* a1,T2 a2){
  57. T2 _i=0;
  58. _i=a2;
  59. while (!((_i)<(0))) {
  60. (C)[_i]=(a1);
  61. _i=(_i)-(1);
  62. }
  63. }
  64.  
  65.  
  66. T2 r351fast_index_of(T351 C,T0* a1,T2 a2){
  67. T2 R=0;
  68. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  69. R=(R)+(1);
  70. }
  71. return R;
  72. }
  73.  
  74.  
  75. void r351copy_from(T351 C,T351 a1,T2 a2){
  76. T2 _i=0;
  77. _i=a2;
  78. while (!((_i)<(0))) {
  79. (C)[_i]=((a1)[_i]);
  80. _i=(_i)-(1);
  81. }
  82. }
  83.  
  84.  
  85. T334 r334realloc(T334 C,T2 a1,T2 a2){
  86. T334 R=NULL;
  87. R=calloc(a2,sizeof(T0*));
  88. r334copy_from(R,C,(a1)-(1));
  89. return R;
  90. }
  91.  
  92.  
  93. void r334set_all_with(T334 C,T0* a1,T2 a2){
  94. T2 _i=0;
  95. _i=a2;
  96. while (!((_i)<(0))) {
  97. (C)[_i]=(a1);
  98. _i=(_i)-(1);
  99. }
  100. }
  101.  
  102.  
  103. void r334move(T334 C,T2 a1,T2 a2,T2 a3){
  104. T2 _i=0;
  105. /*[IF*/
  106. if((a3)==(0)){
  107. }
  108.  else if((a3)<(0)){
  109. _i=a1;
  110. while (!((_i)>(a2))) {
  111. (C)[(_i)+(a3)]=((C)[_i]);
  112. _i=(_i)+(1);
  113. }
  114. }
  115. else{
  116. _i=a2;
  117. while (!((_i)<(a1))) {
  118. (C)[(_i)+(a3)]=((C)[_i]);
  119. _i=(_i)-(1);
  120. }
  121. }
  122. /*FI]*/
  123. }
  124.  
  125.  
  126. void r334clear(T334 C,T2 a1,T2 a2){
  127. T2 _i=0;
  128. T0* _v=NULL;
  129. _i=a1;
  130. while (!((_i)>(a2))) {
  131. (C)[_i]=(_v);
  132. _i=(_i)+(1);
  133. }
  134. }
  135.  
  136.  
  137. void r334copy_from(T334 C,T334 a1,T2 a2){
  138. T2 _i=0;
  139. _i=a2;
  140. while (!((_i)<(0))) {
  141. (C)[_i]=((a1)[_i]);
  142. _i=(_i)-(1);
  143. }
  144. }
  145.  
  146.  
  147. T266 r266realloc(T266 C,T2 a1,T2 a2){
  148. T266 R=NULL;
  149. R=calloc(a2,sizeof(T0*));
  150. r266copy_from(R,C,(a1)-(1));
  151. return R;
  152. }
  153.  
  154.  
  155. void r266set_all_with(T266 C,T0* a1,T2 a2){
  156. T2 _i=0;
  157. _i=a2;
  158. while (!((_i)<(0))) {
  159. (C)[_i]=(a1);
  160. _i=(_i)-(1);
  161. }
  162. }
  163.  
  164.  
  165. void r266copy_from(T266 C,T266 a1,T2 a2){
  166. T2 _i=0;
  167. _i=a2;
  168. while (!((_i)<(0))) {
  169. (C)[_i]=((a1)[_i]);
  170. _i=(_i)-(1);
  171. }
  172. }
  173.  
  174.  
  175. T207 r207realloc(T207 C,T2 a1,T2 a2){
  176. T207 R=NULL;
  177. R=calloc(a2,sizeof(T0*));
  178. r207copy_from(R,C,(a1)-(1));
  179. return R;
  180. }
  181.  
  182.  
  183. void r207clear_all(T207 C,T2 a1){
  184. T2 _i=0;
  185. T0* _v=NULL;
  186. _i=a1;
  187. while (!((_i)<(0))) {
  188. (C)[_i]=(_v);
  189. _i=(_i)-(1);
  190. }
  191. }
  192.  
  193.  
  194. void r207set_all_with(T207 C,T0* a1,T2 a2){
  195. T2 _i=0;
  196. _i=a2;
  197. while (!((_i)<(0))) {
  198. (C)[_i]=(a1);
  199. _i=(_i)-(1);
  200. }
  201. }
  202.  
  203.  
  204. void r207copy_from(T207 C,T207 a1,T2 a2){
  205. T2 _i=0;
  206. _i=a2;
  207. while (!((_i)<(0))) {
  208. (C)[_i]=((a1)[_i]);
  209. _i=(_i)-(1);
  210. }
  211. }
  212.  
  213.  
  214. T332 r332realloc(T332 C,T2 a1,T2 a2){
  215. T332 R=NULL;
  216. R=calloc(a2,sizeof(T0*));
  217. r332copy_from(R,C,(a1)-(1));
  218. return R;
  219. }
  220.  
  221.  
  222. void r332set_all_with(T332 C,T0* a1,T2 a2){
  223. T2 _i=0;
  224. _i=a2;
  225. while (!((_i)<(0))) {
  226. (C)[_i]=(a1);
  227. _i=(_i)-(1);
  228. }
  229. }
  230.  
  231.  
  232. void r332copy_from(T332 C,T332 a1,T2 a2){
  233. T2 _i=0;
  234. _i=a2;
  235. while (!((_i)<(0))) {
  236. (C)[_i]=((a1)[_i]);
  237. _i=(_i)-(1);
  238. }
  239. }
  240.  
  241.  
  242. T286 r286realloc(T286 C,T2 a1,T2 a2){
  243. T286 R=NULL;
  244. R=calloc(a2,sizeof(T0*));
  245. r286copy_from(R,C,(a1)-(1));
  246. return R;
  247. }
  248.  
  249.  
  250. void r286copy_from(T286 C,T286 a1,T2 a2){
  251. T2 _i=0;
  252. _i=a2;
  253. while (!((_i)<(0))) {
  254. (C)[_i]=((a1)[_i]);
  255. _i=(_i)-(1);
  256. }
  257. }
  258.  
  259.  
  260. T324 r324realloc(T324 C,T2 a1,T2 a2){
  261. T324 R=NULL;
  262. R=calloc(a2,sizeof(T0*));
  263. r324copy_from(R,C,(a1)-(1));
  264. return R;
  265. }
  266.  
  267.  
  268. void r324copy_from(T324 C,T324 a1,T2 a2){
  269. T2 _i=0;
  270. _i=a2;
  271. while (!((_i)<(0))) {
  272. (C)[_i]=((a1)[_i]);
  273. _i=(_i)-(1);
  274. }
  275. }
  276.  
  277.  
  278. T56 r56realloc(T56 C,T2 a1,T2 a2){
  279. T56 R=NULL;
  280. R=calloc(a2,sizeof(T0*));
  281. r56copy_from(R,C,(a1)-(1));
  282. return R;
  283. }
  284.  
  285.  
  286. void r56set_all_with(T56 C,T0* a1,T2 a2){
  287. T2 _i=0;
  288. _i=a2;
  289. while (!((_i)<(0))) {
  290. (C)[_i]=(a1);
  291. _i=(_i)-(1);
  292. }
  293. }
  294.  
  295.  
  296. T2 r56fast_index_of(T56 C,T0* a1,T2 a2){
  297. T2 R=0;
  298. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  299. R=(R)+(1);
  300. }
  301. return R;
  302. }
  303.  
  304.  
  305. void r56move(T56 C,T2 a1,T2 a2,T2 a3){
  306. T2 _i=0;
  307. /*[IF*/
  308. if((a3)==(0)){
  309. }
  310.  else if((a3)<(0)){
  311. _i=a1;
  312. while (!((_i)>(a2))) {
  313. (C)[(_i)+(a3)]=((C)[_i]);
  314. _i=(_i)+(1);
  315. }
  316. }
  317. else{
  318. _i=a2;
  319. while (!((_i)<(a1))) {
  320. (C)[(_i)+(a3)]=((C)[_i]);
  321. _i=(_i)-(1);
  322. }
  323. }
  324. /*FI]*/
  325. }
  326.  
  327.  
  328. void r56clear(T56 C,T2 a1,T2 a2){
  329. T2 _i=0;
  330. T0* _v=NULL;
  331. _i=a1;
  332. while (!((_i)>(a2))) {
  333. (C)[_i]=(_v);
  334. _i=(_i)+(1);
  335. }
  336. }
  337.  
  338.  
  339. void r56copy_from(T56 C,T56 a1,T2 a2){
  340. T2 _i=0;
  341. _i=a2;
  342. while (!((_i)<(0))) {
  343. (C)[_i]=((a1)[_i]);
  344. _i=(_i)-(1);
  345. }
  346. }
  347.  
  348.  
  349. T190 r190realloc(T190 C,T2 a1,T2 a2){
  350. T190 R=NULL;
  351. R=calloc(a2,sizeof(T0*));
  352. r190copy_from(R,C,(a1)-(1));
  353. return R;
  354. }
  355.  
  356.  
  357. void r190set_all_with(T190 C,T0* a1,T2 a2){
  358. T2 _i=0;
  359. _i=a2;
  360. while (!((_i)<(0))) {
  361. (C)[_i]=(a1);
  362. _i=(_i)-(1);
  363. }
  364. }
  365.  
  366.  
  367. void r190copy_from(T190 C,T190 a1,T2 a2){
  368. T2 _i=0;
  369. _i=a2;
  370. while (!((_i)<(0))) {
  371. (C)[_i]=((a1)[_i]);
  372. _i=(_i)-(1);
  373. }
  374. }
  375.  
  376.